00100		SUBROUTINE X(J)  
00200		DIMENSION J(1)
00300		COMMON IZ,KZ,F
00400		DO 1 L=1,6
00500		IF(J(L).EQ.0)GO TO 1
00600		M=(50+50*L)*F+IZ
00700		N=(455-70*J(L))*F+KZ
00800		NX=F*10
00900		CALL ALINE(M-NX,N+NX,M+NX,N-NX)
01000		CALL ALINE(M+NX,N+NX,M-NX,N-NX)
01100	1	CONTINUE
01200		REREAD 2,N
01300	2	FORMAT(A5)
01400		NB=F*6        
01500		IF(NB.LT.2)NB=2
01550		IF(NB.GT.7)NB=7
01600		CALL DPYBIG(NB)
01700		KX=-50*F+IZ
01800		KY=200*F+KZ
01900		CALL DPYTXT(KX,KY,N,1)
02000		CALL DPYOUT(2)
02100		RETURN
02200		END
02300	
02400		SUBROUTINE SAVER(I)
02500		DIMENSION I(1)
02600		I(1)=I(3)+2
02700		CALL SAVB(I)
02800	C SAVES DPY BUFFER IN FILE 'PLOTZ.DAT'
02900		END